00100	BEGIN "XAPIII"
00200		STRING PROCEDURE N(INTEGER X);
00300		RETURN(((X%'200)+'100)&(X LAND '177));
00400		STRING FILE;
00500		DO BEGIN OUTSTR(13&10&"	FILENAME = ");FILE←INCHWL;END UNTIL
00600		LENGTH(FILE)≠0 ;
00700		DEFINE α="COMMENT";
00800		DEFINE ↓="(13&10)";
00900		DEFINE Q="'177";		α COMMAND DELIMITER;
01000		OPEN(1,"DSK",0,0,2,0,0,0);
01100		ENTER(1,"XAPCMD",0);		α COMMAND FILE NAME;
     

     

01200		OUT(1,Q&"I"&N(10)&N(100));
01300		OUT(1,Q&"⊗"&50);		α SCALE 0 TO 64;
01400		OUT(1,FILE&↓);
01500		RELEASE(1);
02000	END "XAPIII";